﻿<!--#include file="h.asp"--><%
'
'	七色虎建站系统
'	论坛版务页面
'	2011.2.1

Sub main
	Dim id,rs,a,userid,count,body_,remark
	id=getN("id",0)
	a=getN("a",0)
	userid=user_array(0)
	count=0
	If userid<>0 Then'判断是不是版主
		Set rs=hu.conn("select top 1 classid from 74hu_bbs where host="&userid&" and classid="&id)
		If Not rs.eof Then count=1
	End If
	hu.title = "论坛版务"
	body_ = "[div=nav]-"&hu.url("?aid=index","首页")&"-"&hu.url("bbs_topic.asp?id="&id,"论坛")&"-"
	Select Case a
	Case 0:'显示版务
		body_ = body_ & "论坛版务[/div]"&hu.url("bbs_board.asp?id="&id&"&amp;a=1","会员守则")&" "&_
			hu.url("bbs_board.asp?id="&id&"&amp;a=2","版主守则")&"<br/>"&_
			hu.url("bbs_board.asp?id="&id&"&amp;a=4","积分规则")
		If bbsUserTitle = "1" Then body_ = body_ &" "&	hu.url("bbs_board.asp?id="&id&"&amp;a=5","称号规则")
		body_ = body_ &	"<br/>"
		If count<>0 Then
			body_ = body_ & "版主特权<br/><a href='"&http_path&"bbs_board.asp?id="&id&"&amp;"&sid_str&"&amp;a=3'>论坛主题</a><br/>"
		End If
	Case 1:'会员守则
		body_ = body_ & "会员守则[/div]"&_
			"一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家社会集体的和公民的合法权益，不得利用本站传播下列信息：<br/>"&_
			"1、煽动抗拒、破坏法律、法规实施的；<br/>"&_
			"2、煽动颠覆国家政权，推翻社会主义制度的；<br/>"&_
			"3、煽动分裂国家、破坏国家统一的；<br/>"&_
			"4、煽动民族仇恨、民族歧视，破坏民族团结的；<br/>"&_
			"5、捏造或者歪曲事实，散布谣言，扰乱社会秩序的；<br/>"&_
			"6、宣扬封建迷信、淫秽、色情、赌博、暴力、凶杀、恐怖、教唆犯罪的；<br/>"&_
			"7、公然侮辱他人或者捏造事实诽谤他人的，或者进行其他恶意攻击的；<br/>"&_
			"8、损害国家机关信誉的；<br/>"&_
			"9、其他违反法律法规的；<br/>"&_
			"10、进行商业广告行为的。<br/>"&_
			"二、互相尊重，对自己的言论和行为负责。"
	Case 2:'版主守则
		body_ = body_ & "版主守则[/div]1、遵守会员守则，做好会员表率<br/>2、对待他人要热心，包容，耐心<br/>3、认真管理论坛，改善论坛气氛"
	Case 3:'论坛主题
		body_ = body_ & "论坛主题[/div]"
		If count<>0 Then
			Set rs=hu.conn( "select remark from 74hu_bbs where host="&userid&" and classid="&id)
			If Not rs.eof Then
				remark=nowml(rs("remark"))
				Dim formarray(2)
				formarray(0) = http_path&"bbs_board.asp?id="&id&"&amp;a=13||post||修改"
				formarray(1) = "input||remark$$"&remark&"$$20$$30||<br/>"
				formarray(2) = "hidden||"&bbsSid&"$$"&sid&"||"
				body_ = body_ &  "主题修改:<br/>" & hu.getForm(formarray)
			End If
		End If
	Case 4:'积分规则
		if amtReg="" then amtReg="0,0,0"
		body_ = body_ & "积分规则[/div]"&_
			"会员活动："&bbsmoney&","&bbspoint&",经验<br/>"&_
			"阅读文章："&amtArt&"<br/>"&_
			"评论文章："&amtComment&"<br/>"&_
			"会员投稿："&amtEssay&"<br/>"&_
			"阅读帖子："&amtPosts&"<br/>"&_
			"发表帖子："&amtPost&"<br/>"&_
			"回复帖子："&amtReply&"<br/>"&_
			"删除帖子："&amtPostD&"<br/>"&_
			"加精华帖："&amtPostGood&"<br/>"&_
			"去精华帖："&amtPostGoodD&"<br/>"&_
			"注册送币："&amtReg&"<br/>"&_
			"广告送币："&amtAd&"<br/>"&_
			"[div=tip]温馨提示:<br/>智能防刷，积分不累加[/div]"
			'TODO 不同论坛规则可能不同
	Case 5:'会员称号规则
		body_ = body_ & "称号规则[/div]"&_
			"基本称号：<br/>"&_
			"路人：行色匆匆，看不清样貌<br/>"&_
			"流浪汉/天涯女：居无定所<br/>"&_
			"大叔/大姐：很忌讳谈论年龄<br/>"&_
			"帅哥/美女<br/>"&_
			"美男/仙女（飞升级别）<br/>"&_
			"坏人：被人发现做了坏事<br/><br/>"&_
			"财富称号：<br/>"&_
			"贫困潦倒：没有钱，级别低<br/>"&_
			"两袖清风：没有钱，级别高<br/>"&_
			"闲云野鹤：没有钱，级别非常高<br/>"&_
			"财大气粗：有钱，级别低<br/>"&_
			"富甲一方：有钱，级别高<br/>"&_
			"富可敌国：很有钱，级别很高<br/><br/>"&_
			"个性称号：<br/>"&_
			"懒惰：很少发帖<br/>"&_
			"匆忙：发不少帖，不留签名<br/>"&_
			"积极：发不少帖<br/>"&_
			"活跃：经常发帖<br/><br/>"&_
			"荣誉称号：<br/>"&_
			"扎进花海的美男：很有钱，级别很高，发帖多<br/>"&_
			"堕入凡尘的仙女：很有钱，级别很高，发帖多"
	Case 13:'主题修改
		body_ = body_ & "论坛主题[/div]"
		If count<>0 Then
			remark=getD("remark","")
			hu.conn("update 74hu_bbs set remark='"&remark&"' where host="&userid&" and classid="&id)
			body_ = body_ & "修改成功!"
		End If
	End Select
	body_ = body_ & "<br/>"&hu.url("bbs_topic.asp?id="&id,"返回论坛")
	hu.body = comUbb(body_)
End Sub

%>